module precision
	implicit none
	integer, parameter:: adequate = selected_real_kind (6,35)
	integer, parameter:: precise = selected_real_kind (14,99)
	real(adequate), parameter:: pi = 3.14159_adequate
end module precision
